home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0498.dms / q0498.adf / BOOTNIB < prev    next >
Text File  |  1992-06-07  |  2KB  |  88 lines
  1. colour=1
  2. yyval=12
  3. skipdel=0
  4.  
  5. connect=drives()
  6. cmp connect,-1,0,goto byebye2
  7. drivenum=nibcopy(connect,templat,1)
  8. cmp drivenum,0,-1,goto byebye
  9.  
  10. poke(remdsk+19,drivenum+48)
  11. poke(insdsk2+6,drivenum+48)
  12.  
  13. pnf:    dc.b "Protection not found!",0
  14. pnf2:    dc.b "*** PARAMETER FAILED! ***",0
  15. worktxt:dc.b "Working, please stand by...",0
  16.  
  17. prof:    dc.b "*** Parameter Successful! ***",0
  18. remdsk:    dc.b "Remove disk from DF0: then click in this window...",0
  19.  
  20. insdsk:    dc.b "Insert BACKUP of",0
  21. insdsk2:dc.b " in DF0: then click in this window...",0
  22.  
  23.     dc.w 0
  24.  
  25. * Open Window and print intro text...
  26. start:    validate(drivenum,1)
  27.     cmp ^winname,"con:",0,winname=winname+18
  28.     pokel(wtitle,winname)
  29.     gosub openwin
  30.     cmp docopy,1,0,goto main
  31.  
  32.     gosub remm
  33.  
  34.     txtptr=insdsk
  35.     gosub print3d
  36.     colour=3
  37.     txtptr=dname
  38.     gosub print3d
  39.     colour=1
  40.     txtptr=insdsk2
  41.     gosub print3d
  42.  
  43.     gosub waitsgn
  44.     cmp class,$200000,2,goto chkclow
  45.     cmp code,$1b,0,goto remprta
  46. chkclow:cmp class,$200,0,goto remprta
  47.     skipdel=1
  48.  
  49. main:    txtptr=worktxt
  50.     gosub print3d
  51.  
  52.     cmp skipdel,0,2,goto begit
  53.     delay(100)
  54.  
  55. begit:    blklen=winname-xcopy&$fffffe00
  56.     xboot=allocmem(blklen,2)
  57.     memmove(xboot,xcopy,blklen)
  58.     ret=trackdisk(drivenum,3,0,xboot,blklen)
  59.     ret=trackdisk(drivenum,4,0,0,0)
  60.     freemem(xboot,blklen)
  61.  
  62. priins6:txtptr=prof
  63.     gosub print3d
  64.     goto remprt
  65.     
  66. keyout:    gosub remm
  67.     gosub waitsgn
  68.     cmp mess,0,0,goto keyout
  69.     gosub closwin
  70. byebye:    validate(drivenum,0)
  71. byebye2:end
  72.  
  73. errpnf:    txtptr=pnf
  74.     gosub print3d
  75.     goto prii5a
  76.  
  77. remprt:    delay(150)
  78. remprta:yyval=yyval+10
  79.     txtptr=remdsk
  80.     gosub print3d
  81.     goto keyout
  82.  
  83. prii5a:    txtptr=pnf2
  84.     gosub print3d
  85.     goto remprt
  86.  
  87. #i "Params:WINHAND"
  88.